#lang racket

(require "stream-basics.rkt")

(define 1-to-10 (stream-enumerate-interval 1 10))

(define 4-to-40 (stream-map + 1-to-10 1-to-10 1-to-10 1-to-10))

(display-stream 4-to-40)